home *** CD-ROM | disk | FTP | other *** search
/ Hacker's Arsenal - The Cutting Edge of Hacking / Hacker's Arsenal - The Cutting Edge of Hacking.iso / files / irc / scripts / annoy.irc < prev    next >
Encoding:
Text File  |  2002-01-31  |  22.3 KB  |  856 lines
  1. ### ANNOY.IRC by Vassago for use with PhoEniX Version 2.13.
  2.  
  3. EVAL if ([$ex] == []) {^assign ex [E/X]}
  4.  
  5. EVAL echo $ex Loading Vassago's ANNOY.IRC script...
  6.  
  7. alias multi {
  8.     @ com = [$0-]
  9.     if ([$0]==[msg]){
  10.         @ ct = 2
  11.         @ ctt = 1
  12.         }
  13.         {
  14.         @ ct = 0
  15.         @ ctt = 0
  16.         }
  17.     while (ct < #com) {
  18.         if (ctt){msg $1 $word($ct $com)}{send $word($ct $com)}
  19.         @ ct = ct + 1
  20.         }
  21.  
  22.     ^assign -com
  23.     ^assign -ctt
  24.     ^assign -ct
  25. }
  26.  
  27. alias fop {/quote MODE $C +oooo $0 $0 $0 $0}
  28.  
  29. assign BA[1]  ///// 
  30. assign BB[1] //   //
  31. assign BC[1] //   //
  32. assign BD[1] ///////
  33. assign BE[1] //   //
  34.  
  35. assign BA[2] ////// 
  36. assign BB[2] //   //
  37. assign BC[2] ////// 
  38. assign BD[2] //   //
  39. assign BE[2] ////// 
  40.  
  41. assign BA[3] ///////
  42. assign BB[3] //     
  43. assign BC[3] //     
  44. assign BD[3] //     
  45. assign BE[3] ///////
  46.  
  47. assign BA[4] ////// 
  48. assign BB[4] //   //
  49. assign BC[4] //   //
  50. assign BD[4] //   //
  51. assign BE[4] ////// 
  52.  
  53. assign BA[5] ///////
  54. assign BB[5] //     
  55. assign BC[5] /////  
  56. assign BD[5] //     
  57. assign BE[5] ///////
  58.  
  59. assign BA[6] ///////
  60. assign BB[6] //     
  61. assign BC[6] /////  
  62. assign BD[6] //     
  63. assign BE[6] //     
  64.  
  65. assign BA[7] ///////
  66. assign BB[7] //     
  67. assign BC[7] //  ///
  68. assign BD[7] //   //
  69. assign BE[7] ///////
  70.  
  71. assign BA[8] //   //
  72. assign BB[8] //   //
  73. assign BC[8] ///////
  74. assign BD[8] //   //
  75. assign BE[8] //   //
  76.  
  77. assign BA[9] ///////
  78. assign BB[9]    /   
  79. assign BC[9]    /   
  80. assign BD[9]    /   
  81. assign BE[9] ///////
  82.  
  83. assign BA[10]     ///
  84. assign BB[10]      / 
  85. assign BC[10]      / 
  86. assign BD[10] //   / 
  87. assign BE[10] ////// 
  88.  
  89. assign BA[11] //   //
  90. assign BB[11] //  // 
  91. assign BC[11] ////   
  92. assign BD[11] //  // 
  93. assign BE[11] //   //
  94.  
  95. assign BA[12] //     
  96. assign BB[12] //     
  97. assign BC[12] //     
  98. assign BD[12] //     
  99. assign BE[12] ///////
  100.  
  101. assign BA[13] ///////
  102. assign BB[13] // / //
  103. assign BC[13] // / //
  104. assign BD[13] // / //
  105. assign BE[13] //   //
  106.  
  107. assign BA[14] //   //
  108. assign BB[14] ///  //
  109. assign BC[14] // / //
  110. assign BD[14] //  ///
  111. assign BE[14] //   //
  112.  
  113. assign BA[15] ///////
  114. assign BB[15] //   //
  115. assign BC[15] //   //
  116. assign BD[15] //   //
  117. assign BE[15] ///////
  118.  
  119. assign BA[16] ///////
  120. assign BB[16] //   //
  121. assign BC[16] ///////
  122. assign BD[16] //     
  123. assign BE[16] //     
  124.  
  125. assign BA[17] ///////
  126. assign BB[17] //   //
  127. assign BC[17] //   //
  128. assign BD[17] // ////
  129. assign BE[17] ///////
  130.  
  131. assign BA[18] ///////
  132. assign BB[18] //   //
  133. assign BC[18] ///////
  134. assign BD[18] ////   
  135. assign BE[18] //  ///
  136.  
  137. assign BA[19] ///////
  138. assign BB[19] //     
  139. assign BC[19] ///////
  140. assign BD[19]      //
  141. assign BE[19] ///////
  142.  
  143. assign BA[20] ///////
  144. assign BB[20]    /   
  145. assign BC[20]    /   
  146. assign BD[20]    /   
  147. assign BE[20]    /   
  148.  
  149. assign BA[21] //   //
  150. assign BB[21] //   //
  151. assign BC[21] //   //
  152. assign BD[21] //   //
  153. assign BE[21] ///////
  154.  
  155. assign BA[22] //   //
  156. assign BB[22] //   //
  157. assign BC[22]  // // 
  158. assign BD[22]  // // 
  159. assign BE[22]   ///  
  160.  
  161. assign BE[23] ///////
  162. assign BD[23] // / //
  163. assign BC[23] // / //
  164. assign BB[23] // / //
  165. assign BA[23] //   //
  166.  
  167. assign BA[24] //   //
  168. assign BB[24]  // // 
  169. assign BC[24]   //   
  170. assign BD[24]  // // 
  171. assign BE[24] //   //
  172.  
  173. assign BA[25] //   //
  174. assign BB[25]  // // 
  175. assign BC[25]   //   
  176. assign BD[25]   //   
  177. assign BE[25]   //   
  178.  
  179. assign BA[26] ///////
  180. assign BB[26]     // 
  181. assign BC[26]   ///  
  182. assign BD[26]  //    
  183. assign BE[26] ///////
  184.  
  185. assign BA[27] ///////
  186. assign BB[27] ///  //
  187. assign BC[27] // / //
  188. assign BD[27] //  ///
  189. assign BE[27] ///////
  190.  
  191. assign BA[28]   //   
  192. assign BB[28]   //   
  193. assign BC[28]   //   
  194. assign BD[28]   //   
  195. assign BE[28]   //   
  196.  
  197. assign BA[29] ///////
  198. assign BB[29] //   //
  199. assign BC[29]    //  
  200. assign BD[29]  //    
  201. assign BE[29] ///////
  202.  
  203. assign BA[30] ///////
  204. assign BB[30]      //
  205. assign BC[30]   /////
  206. assign BD[30]      //
  207. assign BE[30] ///////
  208.  
  209. assign BA[31] //   //
  210. assign BB[31] //   //
  211. assign BC[31] ///////
  212. assign BD[31]      //
  213. assign BE[31]      //
  214.  
  215. assign BA[32] ///////
  216. assign BB[32] //     
  217. assign BC[32] ///////
  218. assign BD[32]      //
  219. assign BE[32] ///////
  220.  
  221. assign BA[33] ///////
  222. assign BB[33] //     
  223. assign BC[33] ///////
  224. assign BD[33] //   //
  225. assign BE[33] ///////
  226.  
  227. assign BA[34] ///////
  228. assign BB[34]     // 
  229. assign BC[34]    //  
  230. assign BD[34]   //   
  231. assign BE[34]  //    
  232.  
  233. assign BA[35] ///////
  234. assign BB[35] //   //
  235. assign BC[35] ///////
  236. assign BD[35] //   //
  237. assign BE[35] ///////
  238.  
  239. assign BA[36] ///////
  240. assign BB[36] //   //
  241. assign BC[36] ///////
  242. assign BD[36]      //
  243. assign BE[36] ///////
  244.  
  245. assign BA[37]  /   / 
  246. assign BB[37] ///////
  247. assign BC[37]  /   / 
  248. assign BD[37] ///////
  249. assign BE[37]  /   / 
  250.  
  251. assign BA[38]   
  252. assign BB[38]   
  253. assign BC[38]   
  254. assign BD[38]   
  255. assign BE[38]   
  256.  
  257. assign BA[39]    /   
  258. assign BB[39]    /   
  259. assign BC[39]    /   
  260. assign BD[39]        
  261. assign BE[39]    /   
  262.  
  263. assign BA[40]        
  264. assign BB[40]        
  265. assign BC[40]  ----- 
  266. assign BD[40]        
  267. assign BE[40]        
  268.  
  269. alias indexnum {
  270.   EVAL ^assign RETI $index($0 =abcdefghijklmnopqrstuvwxyz0123456789#_!-)
  271.   if ([$RETI] == [-1]) {/EVAL ^assign RETI $index($0 =ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789#_!-)}
  272.   if ([$0] == [0]) {/EVAL @ RETI = 27}
  273.   EVAL ^assign FUNCTION_RETURN $RETI
  274.   }
  275.  
  276. alias bigwrite {
  277.   if ([$8]) {/echo $ex More than 7 characters, remaining characters ignored.}
  278.   if ([$0]) {
  279.      if ([$1]) {^assign S1 $indexnum($1)}
  280.     {^assign S1 0}
  281.      if ([$2]) {^assign S2 $indexnum($2)}
  282.     {^assign S2 0}
  283.      if ([$3]) {^assign S3 $indexnum($3)}
  284.     {^assign S3 0}
  285.      if ([$4]) {^assign S4 $indexnum($4)}
  286.     {^assign S4 0}
  287.      if ([$5]) {^assign S5 $indexnum($5)}
  288.     {^assign S5 0}
  289.      if ([$6]) {^assign S6 $indexnum($6)}
  290.     {^assign S6 0}
  291.      if ([$7]) {^assign S7 $indexnum($7)}
  292.     {^assign S7 0}
  293.     EVAL sendmsg $0     $BA[$S1]  $BA[$S2]  $BA[$S3]  $BA[$S4]  $BA[$S5]  $BA[$S6]  $BA[$S7]
  294.     EVAL sendmsg $0    $BB[$S1]  $BB[$S2]  $BB[$S3]  $BB[$S4]  $BB[$S5]  $BB[$S6]  $BB[$S7]
  295.     EVAL sendmsg $0   $BC[$S1]  $BC[$S2]  $BC[$S3]  $BC[$S4]  $BC[$S5]  $BC[$S6]  $BC[$S7]
  296.     EVAL sendmsg $0  $BD[$S1]  $BD[$S2]  $BD[$S3]  $BD[$S4]  $BD[$S5]  $BD[$S6]  $BD[$S7]
  297.     EVAL sendmsg $0 $BE[$S1]  $BE[$S2]  $BE[$S3]  $BE[$S4]  $BE[$S5]  $BE[$S6]  $BE[$S7]
  298.      ^assign -RETI
  299.      ^assign -S1
  300.      ^assign -S2
  301.      ^assign -S3
  302.      ^assign -S4
  303.      ^assign -S5
  304.      ^assign -S6
  305.      ^assign -S7
  306.     }
  307.     {
  308.      /echo $ex USAGE: /bigwrite <nick/channel> 1 2 3 4 5 6 7
  309.      /echo $ex 1,2,etc. are up to 7 letters to write, seperated by spaces.
  310.      /echo $ex Valid characters are :ABCDEFGHIJKLMNOPQRSTUVWXYZ123456789#!-
  311.      /echo $ex Characters after #7 will be ignored.  Use _ for spaces.
  312.     }
  313. }
  314.  
  315. alias sendmsg {
  316.   if (rmatch($0 #*)) {
  317.     if ([$0] == [$C]) {
  318.      echo > $1-
  319.      quote PRIVMSG $C :$1-
  320.      }
  321.      {
  322.     echo >$0> $1-
  323.     quote PRIVMSG $0 :$1-
  324.      }
  325.     }
  326.     {
  327.      echo -> *$0* $1-
  328.      quote PRIVMSG $0 :$1-
  329.     }
  330. }
  331.  
  332. alias train {
  333.     /CTCP $0 ACTION jumps on a train to LamerVille and runs over the lamer $1\!
  334.     /msg $0          . . . . o o o o o
  335.     /msg $0                 _____      o       _______
  336.     /msg $0        ____====  ]OO|_n_n__][.     |lamer|
  337.     /msg $0       [________]_|__|________)<    |ville|
  338.     /msg $0        oo    oo  'oo OOOO-| oo\\_   ~~~|~~~
  339.     /msg $0    +--+--+--+--+--+--+--+--+-$1-+--+--+--+--+
  340. }
  341.  
  342. alias docow1 {  
  343.   /msg $0 (__) <-- $1
  344.   /msg $0 /oo\\________
  345.   /msg $0 \\  /        \\;/msg $0  \\/      /   \\;/msg $0    \\_|___\\_|/.\\;/msg $0     ||   YY| o '
  346.   /msg $0     ||    || O <-- $2
  347.   /msg $0     ^^    ^^
  348. }
  349.  
  350. alias docow2 {
  351.    /msg $0
  352.    /msg $0            (___)
  353.    /msg $0            (o o)  <===== $1
  354.    /msg $0      /------\\ /   (__)
  355.    /msg $0     /    ____O    (oo)   <===== $2
  356.    /msg $0    |   / /----\\----\\/
  357.    /msg $0    /\\oo===|  /    ||
  358.    /msg $0   | ||   *||^-----||
  359.    /msg $0   *  ^^   ^^      ^^
  360. }
  361.  
  362. alias fuckyou { 
  363.  /msg $0            _____
  364.  /msg $0            |_ _|
  365.  /msg $0       n    (O O)    n
  366.  /msg $0       H   _|\\_/|_   H
  367.  /msg $0      nHnn/ \\___/ \\nnHn
  368.  /msg $0     <V VV /      \ VV V>
  369.  /msg $0      \\__\\/|     |\\/__/ 
  370. }
  371.  
  372. # Acidflux's SIT ON THIS Alias :D
  373.  
  374. alias sitonthis {
  375.   /msg $0    n         /
  376.   /msg $0    H     o     o
  377.   /msg $0  nnHnn      [      SiT ON THiS AND ROTATE!
  378.   /msg $0  VVVVV     ___/
  379. }
  380.  
  381. alias beefcow {
  382.   /msg $0    (__) BBBBBB--EEEEEEE-EEEEEEE-FFFFFFF
  383.   /msg $0    /oo\\_BB---BB-EE------EE------FF-----\\;//msg $0    \\  /~BBBBBB--EEEEEE--EEEEEE--FFFFF-- |
  384.   /msg $0     oo  BB---BB-EE------EE------FF----- |
  385.   /msg $0         BBBBBB--EEEEEEE-EEEEEEE-FF----- ^
  386.   /msg $0          | |                       | |
  387.   /msg $0          ^ ^                       ^ ^
  388. }
  389.  
  390. alias nark {
  391.   /msg $0    <<             |      |  /~~~~~~\\  |~~~~~~~~~|  |   /
  392.   /msg $0   <<              |\\     |  |      |  |         |  |  /
  393.   /msg $0  <<               | \\    |  |      |  |         |  | /
  394.   /msg $0 <<--------------  |  \\   |  |      |  |\\~~~~~~~~~  |<
  395.   /msg $0  <<               |   \\  |  |------|  | \\          | \\;//msg $0   <<              |    \\ |  |      |  |  \\         |  \\;//msg $0    <<             |     \\|  |      |  |   \\_____   |   \\_
  396.   }
  397.  
  398. alias borg {
  399.   /msg $0       -WE R K0W OF B0RG.  R3SISTANCE IS FUTiLE.  MOO.
  400.   /msg $0  (__)
  401.   /msg $0  /oo\\################
  402.   /msg $0  \\  /################\\;//msg $0   \\/ ################ |
  403.   /msg $0      ################ |
  404.   /msg $0      ################
  405.   /msg $0       | |        | |
  406.   /msg $0       ^ ^        ^ ^
  407. }
  408.  
  409. alias slapop {
  410.   /msg $0 -------------- SLaP Me SuMMa DaT PLuS oH! -------------------
  411.   /msg $0    <<<<                 +o+o+o+o+o+ o+o+o+o+o+o+ o+o+o+o+o+o
  412.   /msg $0   <<<<                  o+o     o+o +o+      o+o +o+
  413.   /msg $0  <<<<                   +o+     +o+ o+o      +o+ o+o
  414.   /msg $0 <<<<=================   o+o     o+o +o+      o+o +o+o+o+o+o+
  415.   /msg $0 <<<<=================   +o+     +o+ o+o+o+o+o+o+ o+o+o+o+o+o
  416.   /msg $0  <<<<                   o+o     o+o +o+                  +o+
  417.   /msg $0   <<<<                  +o+     +o+ o+o                  o+o
  418.   /msg $0    <<<<                 o+o+o+o+o+o +o+          +o+o+o+o+o+
  419. }
  420.  
  421. alias deadcat1 {
  422.   /msg $0           /\\;//msg $0              /  \\_______/\\/\\;//msg $0             /               \\;//msg $0             |_  -X     XX _ /
  423.   /msg $0         \\ ~-_  oo  _-~  |
  424.   /msg $0         -\\--- ____ -----/
  425.   /msg $0          \\-~   \\_\\ ~-_/
  426.   /msg $0         -~ ~~\\       / ~
  427.   /msg $0               !WOEM
  428. }
  429.  
  430. alias deadcat2 {
  431.   /msg $0   _ __/|
  432.   /msg $0   \\'X.X'
  433.   /msg $0   =(___)=
  434.   /msg $0       U
  435.   /msg $0   MEOW!!!
  436. }
  437.  
  438. alias woop {
  439.   /msg $0                      ____  ____
  440.   /msg $0            _      __/ __ \\/ __ \\____
  441.   /msg $0           | | /| / / / / / / / / __ \\;//msg $0           | |/ |/ / /_/ / /_/ / /_/ /
  442.   /msg $0           |__/|__/\\____/\\____/ .___/
  443.   /msg $0                             /_/
  444. }
  445.  
  446. alias jokemass {
  447.   if ([$0]) {
  448.     /echo $ex Joke Massdeopping. \(You KNOW you're gonna get kicked!\)
  449.     ^assign person $0
  450.     userhost Mode -cmd if ([$4]==[<UNKNOWN>]) { _dojoke Mode }{
  451.     userhost Mode_ -cmd if ([$4]==[<UNKNOWN>]) { _dojoke Mode_ }{
  452.     userhost _Mode -cmd if ([$4]==[<UNKNOWN>]) { _dojoke _Mode }{
  453.     userhost _Mode_ -cmd if ([$4]==[<UNKNOWN>]) { _dojoke _Mode_ }{
  454.     userhost Mode__ -cmd if ([$4]==[<UNKNOWN>]) { _dojoke Mode__ }{
  455.     userhost __Mode -cmd if ([$4]==[<UNKNOWN>]) { _dojoke __Mode }{
  456.     }}}}}}
  457.     }{/echo $ex You must specify a nick to fake.}
  458. }
  459.  
  460. alias _findjoke {
  461.    if (([$[1]0] == [@]) && (match($0 @$person $person)==0)) {^assign mdopz $strip(@ $0) ${mdopz}}
  462.    if (([$[1]1] == [@]) && (match($1 @$person $person)==0)) {^assign mdopz $strip(@ $1) ${mdopz}}
  463.    if (([$[1]2] == [@]) && (match($2 @$person $person)==0)) {^assign mdopz $strip(@ $2) ${mdopz}}
  464.    if ([$3]) {/_findjoke $3-}
  465. }
  466.  
  467. alias _dojoke {
  468.    ^assign onick $N
  469.    //nick $0
  470.    ^assign -mdopz
  471.    ^on ^names "*" _findjoke $$1-\;^on ^names -*
  472.    /names $C
  473.     wait
  474.    @ mc = 1
  475.     wait
  476.    while (#mdopz>=mc) {
  477.     if ([$word(${mc+1} $mdopz)]) {//me change "-ooo $word(${mc-1} $mdopz) $word($mc $mdopz) $word(${mc+1} $mdopz)" on channel $C by $person} 
  478.     {
  479.        if ([$word(${mc} $ml)]) {//me change "-oo $word(${mc-1} $mdopz) $word($mc $mdopz)" on channel $C by $person} 
  480.        {//me change "-o $word(${mc-1} $mdopz)" on channel $C by $person}
  481.     }
  482.     @ mc = mc + 3
  483.    }
  484.    //nick $onick
  485.    ^assign -person
  486.    ^assign -onick
  487.    ^assign -mdopz
  488.    ^assign -jokecmd
  489. }
  490.  
  491. # Cooltalking assigns (for when you want to feel EXTRA elite :)
  492.  
  493. @ sane.set  = [abcdefghijklmnopqrstuvwxyz]
  494. assign leet.set.0.0 a
  495. assign leet.set.0.1 A
  496. assign leet.set.0.2 @
  497. assign leet.set.0.3 a
  498. assign leet.set.1.0 b
  499. assign leet.set.1.1 B
  500. assign leet.set.1.2 |3
  501. assign leet.set.1.3 b
  502. assign leet.set.2.0 c
  503. assign leet.set.2.1 C
  504. assign leet.set.2.2 (
  505. assign leet.set.2.3 [
  506. assign leet.set.3.0 d
  507. assign leet.set.3.1 D
  508. assign leet.set.3.2 c|
  509. assign leet.set.3.3 |)
  510. assign leet.set.4.0 e
  511. assign leet.set.4.1 E
  512. assign leet.set.4.2 3
  513. assign leet.set.4.3 [-
  514. assign leet.set.5.0 f
  515. assign leet.set.5.1 F
  516. assign leet.set.5.2 /=
  517. assign leet.set.5.3 ph
  518. assign leet.set.6.0 g
  519. assign leet.set.6.1 G
  520. assign leet.set.6.2 9
  521. assign leet.set.6.3 g
  522. assign leet.set.7.0 h
  523. assign leet.set.7.1 H
  524. assign leet.set.7.2 #
  525. assign leet.set.7.3 |-|
  526. assign leet.set.8.0 i
  527. assign leet.set.8.1 I
  528. assign leet.set.8.2 1
  529. assign leet.set.8.3 !
  530. assign leet.set.9.0 j
  531. assign leet.set.9.1 J
  532. assign leet.set.9.2 _/
  533. assign leet.set.9.3 j
  534. assign leet.set.10.0 k
  535. assign leet.set.10.1 K
  536. assign leet.set.10.2 |<
  537. assign leet.set.10.3 k
  538. assign leet.set.11.0 l
  539. assign leet.set.11.1 L
  540. assign leet.set.11.2 |_
  541. assign leet.set.11.3 /_
  542. assign leet.set.12.0 m
  543. assign leet.set.12.1 M
  544. assign leet.set.12.2 |\/|
  545. assign leet.set.12.3 m
  546. assign leet.set.13.0 n
  547. assign leet.set.13.1 N
  548. assign leet.set.13.2 |\|
  549. assign leet.set.13.3 /v
  550. assign leet.set.14.0 o
  551. assign leet.set.14.1 O
  552. assign leet.set.14.2 0
  553. assign leet.set.14.3 ()
  554. assign leet.set.15.0 p
  555. assign leet.set.15.1 P
  556. assign leet.set.15.2 />
  557. assign leet.set.15.3 p
  558. assign leet.set.16.0 q
  559. assign leet.set.16.1 Q
  560. assign leet.set.16.2 (,)
  561. assign leet.set.16.3 q
  562. assign leet.set.17.0 r
  563. assign leet.set.17.1 R
  564. assign leet.set.17.2 /~
  565. assign leet.set.17.3 /^
  566. assign leet.set.18.0 s
  567. assign leet.set.18.1 S
  568. assign leet.set.18.2 5
  569. assign leet.set.18.3 $
  570. assign leet.set.19.0 t
  571. assign leet.set.19.1 T
  572. assign leet.set.19.2 +
  573. assign leet.set.19.3 ~|~
  574. assign leet.set.20.0 u
  575. assign leet.set.20.1 U
  576. assign leet.set.20.2 (_)
  577. assign leet.set.20.3 |_|
  578. assign leet.set.21.0 v
  579. assign leet.set.21.1 V
  580. assign leet.set.21.2 \/
  581. assign leet.set.21.3 v
  582. assign leet.set.22.0 w
  583. assign leet.set.22.1 W
  584. assign leet.set.22.2 |/\|
  585. assign leet.set.22.3 \/\/
  586. assign leet.set.23.0 x
  587. assign leet.set.23.1 X
  588. assign leet.set.23.2 ><
  589. assign leet.set.23.3 x
  590. assign leet.set.24.0 y
  591. assign leet.set.24.1 Y
  592. assign leet.set.24.2 `/
  593. assign leet.set.24.3 v/
  594. assign leet.set.25.0 z
  595. assign leet.set.25.1 Z
  596. assign leet.set.25.2 2
  597. assign leet.set.25.3 ~/_
  598.  
  599. alias eleetf {
  600.   @ sane.str = [$*]
  601.   @ sane.len = @sane.str
  602.   @ leet.str = []
  603.   @ leet.len = 0
  604.   while (leet.len < sane.len)
  605.     {
  606.     @ leet.ind = index($mid($leet.len 1 $sane.str) $sane.set)
  607.     if (leet.ind > -1)
  608.      {
  609.      @leet.str = leet.str ## leet.set[$leet.ind][$rand(4)]
  610.      }
  611.      {
  612.      @leet.str = leet.str ## mid($leet.len 1 $sane.str)
  613.      }
  614.     @leet.len = leet.len + 1
  615.     }
  616.   @ function_return = leet.str
  617.   ^assign -leet.len ;^assign -leet.str ;^assign -leet.ind
  618.   ^assign -sane.str ;^assign -sane.str
  619. }
  620.  
  621. alias me1 {//me ${ eleetf($*) } }
  622. alias say1 {//say ${ eleetf($*) } }
  623. alias msg1 {//msg $0 ${ eleetf($1-) } }
  624. alias topic1 {//topic $C ${ eleetf($0-)} }
  625.  
  626. alias say2 //say $cooltalk2($0-)
  627. alias me2 //me $cooltalk2($0-)
  628. alias topic2 //topic $C $cooltalk2($0-)
  629. alias msg2 //msg $0 $cooltalk2($1-)
  630.  
  631. alias cooltalk2 {
  632.   @in=[$0-]
  633.   @out=[]
  634.   @sz=[$@in]
  635.   @pt=0
  636.   while ([$pt] < [$sz]) {
  637.     @out= [$mid($pt 1 $in)] ## out
  638.     @pt= pt+1
  639.   }
  640.   @function_return= out
  641. }
  642.  
  643. alias say3 //say $cooltalk3($0-)
  644. alias me3 //me $cooltalk3($0-)
  645. alias topic3 //topic $C $cooltalk3($0-)
  646. alias msg3 //msg $0 $cooltalk3($1-)
  647.  
  648. alias cooltalk3 {
  649.   @in=[$0-]
  650.   @out=[]
  651.   @sz=[$@in]
  652.   @pt=0
  653.   while ([$pt] < [$sz]) {
  654.     @out= out ## [$toupper($mid($pt 1 $in))]
  655.     @pt= pt+1
  656.     @out= out ## [$tolower($mid($pt 1 $in))]
  657.     @pt= pt+1
  658.   }
  659.   @function_return= out
  660. }
  661.  
  662. alias say4 //say $cooltalk4($0-)
  663. alias me4 //me $cooltalk4($0-)
  664. alias topic4 //topic $C $cooltalk4($0-)
  665. alias msg4 //msg $0 $cooltalk4($1-)
  666.  
  667. alias cooltalk4 {
  668.   @in=[$0-]
  669.   @out=[]
  670.   @sz=[$@in]
  671.   @pt=0
  672.   while ([$pt] < [$sz]) {
  673.     @out= out ## [$toupper($mid($pt 1 $in))]
  674.     @pt= pt+1
  675.     @out= out ## [$toupper($mid($pt 1 $in))]
  676.     @pt= pt+1
  677.   }
  678.   @function_return= out
  679. }
  680.  
  681. alias say5 //say $cooltalk5($0-)
  682. alias me5 //me $cooltalk5($0-)
  683. alias topic5 //topic $C $cooltalk5($0-)
  684. alias msg5 //msg $0 $cooltalk5($1-)
  685.  
  686. alias cooltalk5 {
  687.   @in=[$0-]
  688.   @out=[]
  689.   @sz=[$@in]
  690.   @pt=0
  691.   while ([$pt] < [$sz]) {
  692.     @out= out ## [$toupper($mid($pt 1 $in))]
  693.     @pt= pt+1
  694.     @out= out ## [$tolower($mid($pt 1 $in))]
  695.     @pt= pt+1
  696.   }
  697.   @function_return= out
  698. }
  699.  
  700. alias say6 //say $cooltalk6($0-)
  701. alias me6 //me $cooltalk6($0-)
  702. alias topic6 //topic $C $cooltalk6($0-)
  703. alias msg6 //msg $0 $cooltalk6($1-)
  704.  
  705. alias cooltalk6 {
  706.   @in=[$0-]
  707.   @out=[]
  708.   @sz=[$@in]
  709.   @pt=0
  710.   while ([$pt] < [$sz]) {
  711.     @out= out ## [$toupper($mid($pt 1 $in))]
  712.     @pt= pt+1
  713.     @out= out ## [$toupper($mid($pt 1 $in))]
  714.     @pt= pt+1
  715.   }
  716.   @function_return= out
  717. }
  718.  
  719. alias say7 say $cooltalk7($0-)
  720. alias me7 me $cooltalk7($0-)
  721. alias topic7 //topic $C $cooltalk7($0-)
  722. alias msg7 //msg $0 $cooltalk7($1-)
  723.  
  724. alias cooltalk7 {
  725.   @in=[$0-]
  726.   @out=[]
  727.   @sz=[$@in]
  728.   @pt=0
  729.   while ([$pt] < [$sz]) {
  730.     @out= out ## [$toupper($mid($pt 1 $in))]
  731.     @pt= pt+1
  732.     @out= out ## [$tolower($mid($pt 1 $in))]
  733.     @pt= pt+1
  734.   }
  735.   @function_return= out
  736. }
  737.  
  738. alias say8 //say $cooltalk8($0-)
  739. alias me8 //me $cooltalk8($0-)
  740. alias topic8 //topic $C $cooltalk8($0-)
  741. alias msg8 //msg $0 $cooltalk8($1-)
  742.  
  743. alias cooltalk8 {
  744.   @in=[$0-]
  745.   @out=[]
  746.   @sz=[$@in]
  747.   @pt=0
  748.   while ([$pt] < [$sz]) {
  749.     @out= out ## [$toupper($mid($pt 1 $in))]
  750.     @pt= pt+1
  751.     @out= out ## [$tolower($mid($pt 1 $in))]
  752.     @pt= pt+1
  753.   }
  754.   @function_return= out
  755. }
  756.  
  757. alias say9 //say $cooltalk9($0-)
  758. alias me9 //me $cooltalk9($0-)
  759. alias topic9 //topic $C $cooltalk9($0-)
  760. alias msg9 //msg $0 $cooltalk9($1-)
  761.  
  762. alias cooltalk9 {
  763.   @in=[$0-]
  764.   @out=[]
  765.   @sz=[$@in]
  766.   @pt=0
  767.   while ([$pt] < [$sz]) {
  768.     if ([$mid($pt 1 $in)] == [ ]) {@out = out ## [ ];@pt=pt+1} {
  769.     @out= out ## [$toupper($mid($pt 1 $in))] 
  770.     @pt= pt+1 }
  771.     if ([$mid($pt 1 $in)] == [ ]) {@out = out ## [ ];@pt=pt+1} {
  772.     @out= out ## [$tolower($mid($pt 1 $in))]
  773.     @pt= pt+1 }
  774.     if ([$mid($pt 1 $in)] == [ ]) {@out = out ## [ ];@pt=pt+1} {
  775.     @out= out ## [$toupper($mid($pt 1 $in))] 
  776.     @pt= pt+1 }
  777.     if ([$mid($pt 1 $in)] == [ ]) {@out = out ## [ ];@pt=pt+1} {
  778.     @out= out ## [$tolower($mid($pt 1 $in))]
  779.     @pt= pt+1 }
  780.   }
  781.   @function_return= out
  782. }
  783.  
  784. alias haha say hahahahahahaha
  785. alias yawn me *Yawns*
  786. alias sigh me *sighs*
  787. alias hehe say hehehehehehehe
  788. alias hmm say hmmmmmmmmmm...
  789. alias ooo say OooOOoOOooOOoooo
  790. alias smile me smiles
  791. alias wave me waves goodbye
  792. alias wink me winks
  793. alias shrug me shrugs
  794. alias gig me giggles
  795. alias grin me grins
  796. alias groan me groans
  797. alias moan me moans
  798. alias nod me nods
  799. alias clap me applauds
  800. alias bow me bows gracefully.
  801. alias burp me burps.
  802. alias cough me coughs noisily.
  803. alias cry me bursts into tears. Waaaaah!
  804. alias gasp me gasps in astonishment!
  805. alias scream me screams loudly: Aaarrrgghh!!!
  806. alias shiv me shivers from the cold. Brrrr!
  807. alias snore me snores loudly. Zzzz...
  808. alias comf me comforts
  809. alias cud me cuddles
  810. alias hug me hugs
  811. alias kiss me kisses
  812. alias love me whispers sweet words of love to
  813. alias pat me pats $0 on the shoulders $1-
  814. alias poke me pokes $0 in the ribs $1-
  815. alias slap me slaps $0 in the face $1-
  816. alias romance {
  817.   /me gracefully doffs his hat and flourishly bows toward $0.
  818.   /me accepts $0's proferred hand and gently kisses it...
  819. }
  820.  
  821. alias ANNOYHELP {
  822.    echo |----------------------------------------------------------------------|
  823.    echo |          PhoEniX Version 2.13 by Vassago - Annoy Command Help        |
  824.    echo |----------------------------------------------------------------------|
  825.    echo | /BIGWRITE (nick/channel) 1 2 3 4 5 6 7 - BIGwrites something.        |
  826.    echo | /FOP (nick) - Quadruple ops <nick> with four +oooo ops.              |
  827.    echo | /MULTI (message) - Puts one word on a line of <message>.             |
  828.    echo | /DOCOW1 (nick/channel) (1) (2) - Sends a cow to <nick/channel>.      |
  829.    echo | /DOCOW2 (nick/channel) (1) (2) - says a rather pornographic cow.     |
  830.    echo | /TRAIN (nick/channel) (1) - Does the LAMER TRAIN to <nick/channel>.  |
  831.    echo | /FUCKYOU (nick/channel) - Sends a funny fuck you to <nick/channel>.  |
  832.    echo | /SITONTHIS - Sends a funny message from Acidflux =)                  |
  833.    echo | /BEEFCOW (nick/channel) - Sends a beefcow to <nick/channel>.         |
  834.    echo | /NARK (nick/channel) - Says NARK! to <nick/channel>.                 |
  835.    echo | /BORG (nick/channel) - Puts the fear of the Borg in <nick/channel>.  |
  836.    echo | /DEADCAT1 (nick/channel) - Sends a dead cat to <nick/channel>.       |
  837.    echo | /DEADCAT2 (nick/channel) - Sends another dead cat to <nick/channel>. |
  838.    echo | /WOOP (nick/channel) - W00ps the <nick/channel>                      |
  839.    echo | /SLAPOP (nick/channel) - Gives a big <---- OP sign to <nick/channel>.|
  840.    echo | /JOKEMASS (nick to fake) - Does a fake megadeop of current channel.  |
  841.    echo | /SAY# (msg) - Cooltalks <msg>. /TOPIC# (topic) - Cooltalks topic.    |
  842.    echo | /MSG# (nick) (msg) - Cooltalks <msg> to <nick>.                      |
  843.    echo | /SPECIAL - Gives you a list of special aliases you can use.          |
  844.    echo |----------------------------------------------------------------------|
  845. }
  846.  
  847. alias special {
  848.    /echo $ex Special aliases: \(/<name> <Anything extra>\).
  849.    /echo $ex haha, yawn, sigh, hehe, smile, wave, wink, shrug, gig, groan,
  850.    /echo $ex moan, nod, clap, bow, burp, cough, cry, gasp, scream, romance,
  851.    /echo $ex snore, comf, cud, hug, kiss, love, pat, poke, slap, hmm, shiv.
  852. }
  853.  
  854. EVAL echo $ex ANNOY.IRC has been loaded. Type /ANNOYHELP for commands.
  855.  
  856.